From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 24 Apr 2024 07:02:22 +0000 (+0300)
Subject: Fix handling of glyph codes in whitespace.el
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~1783
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=3bf9a047427aab554ce228250a796fa327d9b353;p=emacs.git

Fix handling of glyph codes in whitespace.el

* lisp/whitespace.el (whitespace-display-vector-p): Support glyph
codes, not just plain characters.  See
https://lists.gnu.org/archive/html/help-gnu-emacs/2024-04/msg00248.html
for the details.
---

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 15c1b83fcc1..bc23a8794eb 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -2474,7 +2474,7 @@ purposes)."
   (let ((i (length vec)))
     (when (> i 0)
       (while (and (>= (setq i (1- i)) 0)
-		  (whitespace-char-valid-p (aref vec i))))
+		  (whitespace-char-valid-p (glyph-char (aref vec i)))))
       (< i 0))))